home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / COPEIN.SDA / QV.MAIN (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  4.0 KB  |  225 lines
  1. QV_MAIN
  2. SEQ formatted GEOS file V1.0
  3. Epson FX-80
  4.     QV_TABLES
  5. LASTER'S 
  6. ONVERTER 
  7. COPE Source V1.1
  8. COPE Editor V1.2
  9. Untitled
  10. @!@2@6@<@J@X@g@t@|@
  11. ; ===
  12. ; Source for QuickView
  13. ;  BY BILL SHARP
  14. START
  15.  JSR OpenDisk
  16.  lda curDrive
  17.  sta homeDrive
  18.  jsr VECTOR1
  19. ;------
  20.  JSR $C18A; mouseup
  21.  JSR Clr_Screen
  22. loadw R0:ICONS
  23.  JSR $C15A; do ICONS
  24.  jsr DoScreen
  25. ; ICON ROUTINE
  26. ICONS
  27. .BYTE 3
  28. .WORD 16
  29. .BYTE 175
  30. .WORD Icdt
  31. .BYTE 34,184,6,15
  32. .WORD QUIT2 ; CODE
  33. .WORD Icdt
  34. .BYTE 0,184,6,15
  35. .WORD ScreenPrint; Execute the print to screen function.
  36. .WORD Icdt
  37. .BYTE 17,184,6,15
  38. .WORD Pause
  39. .BYTE 128+90
  40. .Byte 255,255,255,255,255,254
  41. .Byte 128,0,0,0,0,3
  42. .Byte 128,0,0,0,0,3
  43. .Byte 128,0,0,0,0,3
  44. .Byte 128,0,0,0,0,3
  45. .Byte 128,0,0,0,0,3
  46. .Byte 128,0,0,0,0,3
  47. .Byte 128,0,0,0,0,3
  48. .Byte 128,0,0,0,0,3
  49. .Byte 128,0,0,0,0,3
  50. .Byte 128,0,0,0,0,3
  51. .Byte 128,0,0,0,0,3
  52. .Byte 128,0,0,0,0,3
  53. .Byte 255,255,255,255,255,255
  54. .Byte 127,255,255,255,255,255
  55. ;==  END OF MENU TABLES
  56. VECTOR1
  57. lda #24
  58. sta SOB
  59. sta CBP
  60. lda #25
  61. sta EOB
  62. LDX #$40
  63. STX SOB+1
  64. STX CBP+1
  65. STX EOB+1
  66.  lda #13
  67.  sta (CBP),y
  68.  lda #$0C
  69.  sta (EOB),Y
  70.  loadw $84A9:OPV
  71. QUIT2
  72.  lda homeDrive; return to home drive.
  73.  jsr ChangeDrive1
  74. JMP EnterDeskTop
  75. Clr_Screen
  76.  lda #0
  77.  jsr SetPattern
  78.  jsr i_Rectangle
  79.  .Byte 0,199
  80.  .Word 0,319
  81. ;=====
  82. DoScreen
  83.  jsr i_PutString
  84.  .Word 07
  85.  .Byte 193
  86.  .Byte BOLD,'SELECT',0
  87.  jsr i_PutString
  88.  .Word 08+8*17
  89.  .Byte 193
  90.  .Byte BOLD,'PAUSE',0
  91.  jsr i_PutString
  92.  .Word 15+34*8
  93.  .Byte 193
  94.  .Byte BOLD,'EXIT',0
  95.  jsr i_PutString
  96.  .Word 50
  97.  .Byte 20
  98.  .Byte BOLD,'This is another Public Domain',0
  99.  jsr i_PutString
  100.  .Word 50
  101.  .Byte 35
  102.  .Byte 'program developed by the',0
  103.  jsr i_PutString
  104.  .Word 30
  105.  .Byte 55
  106.  .Byte BOLD,26,'TechUnit of Bill Sharp Computing',PLAIN,0
  107.  jsr i_PutString
  108.  .Word 50
  109.  .Byte 95
  110.  .Byte BOLD,'Source code disk is available in',0
  111.  jsr i_PutString
  112.  .Word 50
  113.  .Byte 110
  114.  .Byte 'geoCOPE format for only $5.00 from:',0
  115.  jsr i_PutString
  116.  .Word 50
  117.  .Byte 130
  118.  .Byte 'Bill Sharp Computing',0
  119.  jsr i_PutString
  120.  .Word 50
  121.  .Byte 140
  122.  .Byte 'P.O. Box 7533',0
  123.  jsr i_PutString
  124.  .Word 50
  125.  .Byte 150
  126.  .Byte 'Waco, TX 76714',PLAIN,0
  127. ;-----
  128. ,3,$81,$8D,$C1,$B3,$66
  129. .Byte 3,$81,$8D,$81,$BScreenPrint
  130. ; This routine is the controlling routines for
  131. ; printing to the screen
  132. ; called from ICON being clicked 'on'.
  133. ;------
  134.  lda #0
  135.  jsr CvCrd
  136.  LDA #128
  137.  sta $2F; displayBuffer
  138.  JSR LOAD
  139.  lda CancelFlag
  140.  cmp #2
  141.  beq @exit
  142.  jsr CvCrd1
  143.  jsr OPV
  144.  lda PauseByte
  145.  bne @SPa
  146.  lda ExitByte
  147.  bne @exit
  148.   jsr GetByte      ; returns next available byte/ EOF is zero
  149.   jsr ScreenByte   ; print byte to screen/ EOF clears buffer.
  150.   bne @SPa        ; ScreenByte Exits with $FF/contiune-0/stop
  151. ;----
  152. ; shut down operation
  153. @exit
  154. ;=======
  155. GetByte
  156.  ldy #0
  157. Gibberish
  158.  lda (CBP),Y
  159.  beq GNext; was @0GB7
  160.  cmp #CARDSET
  161.  beq @0GB3
  162.  cmp #TAB
  163.  beq @0GB4
  164.  cmp #GRAPH
  165.  beq @0GB5
  166.  cmp #RULER
  167.  beq @0GB6
  168.  cmp #$0C
  169.  beq GNext
  170.  @0GB7
  171.  addy CBP
  172. GNext
  173.  inc CurRecord
  174.  jsr SETUPM
  175.  lda NoRecord
  176.  bne @0GB2
  177.  BEQ GetByte
  178. @0GB2
  179.  lda #0
  180. @0GB3
  181.   iny
  182.   iny
  183.   iny
  184.   lda (CBP),Y
  185.   sty Y_Temp
  186.   JSR CvCrd; convert card bit to byte.
  187.   ldy Y_Temp
  188.   iny
  189.   branch Gibberish
  190. Y_Temp .Byte 0
  191. @0GB4
  192.   tya
  193.   clc
  194.   ADC #1
  195.   tay
  196.   branch Gibberish
  197. @0GB5
  198.   tya
  199.   clc
  200.   ADC #5
  201.   tay
  202.   branch Gibberish
  203. @0GB6
  204.   tya
  205.   clc
  206.   ADC #27
  207.   tay
  208.   branch Gibberish
  209. ;-----
  210. ScreenByte
  211.  jsr SETUPA
  212.  beq SBex
  213.  cmp #32
  214.  bne @0001
  215.  ldx R11+1
  216.  beq @0001
  217.  lda #13
  218.  @0001
  219.  jsr PRTOUT
  220.  lda #$FF
  221.  lda #13
  222.  jsr PRTOUT
  223.  lda #0
  224. ;=====
  225.